home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
JCSM Shareware Collection 1996 September
/
JCSM Shareware Collection (JCS Distribution) (September 1996).ISO
/
prgtools
/
apm3212c.zip
/
APM1.FRM
< prev
next >
Wrap
Text File
|
1996-08-25
|
3KB
|
107 lines
VERSION 4.00
Begin VB.Form apm1
Caption = "apm1"
ClientHeight = 6450
ClientLeft = 2055
ClientTop = 2760
ClientWidth = 6690
Height = 6855
Left = 1995
LinkTopic = "Form1"
ScaleHeight = 6450
ScaleWidth = 6690
Top = 2415
Width = 6810
Begin VB.CommandButton CmdExit
Caption = "Exit"
Height = 735
Left = 3960
TabIndex = 4
Top = 4680
Width = 1575
End
Begin VB.CommandButton cmdProgMaint
Caption = "Program Maintenance"
Height = 735
Left = 3960
TabIndex = 3
Top = 3600
Width = 1575
End
Begin VB.CommandButton cmdAuthMaint
Caption = "Author Maintenance"
Height = 735
Left = 3960
TabIndex = 2
Top = 2520
Width = 1575
End
Begin VB.Label Label2
Alignment = 2 'Center
Caption = "Shareware File Maintenance"
BeginProperty Font
name = "News Gothic MT"
charset = 0
weight = 400
size = 15.75
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
Height = 855
Left = 1560
TabIndex = 1
Top = 1080
Width = 3375
End
Begin VB.Label Label1
Alignment = 2 'Center
Caption = "JCS Marketing, Inc."
BeginProperty Font
name = "News Gothic MT"
charset = 0
weight = 400
size = 15.75
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
Height = 615
Left = 1680
TabIndex = 0
Top = 360
Width = 3135
End
End
Attribute VB_Name = "apm1"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Private Sub cmdAuthMaint_Click()
frm1.Hide
frm2.Show
End Sub
Private Sub CmdExit_Click()
End
End Sub
Private Sub cmdProgMaint_Click()
If AuthorFileIn = 2 Then ' author file available
frm1.Hide
Call ClearProgArea
frm3.Show
Else
MsgBox ("Cannot - must create author file first")
End If
End Sub